Top 10k strings from ZX Mines (2003)(Compiler Software)(en-es).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

  10 DIFICULTAD=0
   7 DIFICULTAD
   4  ; "             "; :
   3 V(CX,CY)=1
   3  ; "3. New Hard"
   3  ; "3. Dificil "
   3  ; "2. New Normal"; :
   3  ; "2. Medio     "; :
   3  ; "1. New Easy"; :
   3  ; "1. Facil   "; :
   2 V(RX,RY)=1
   2 PORCEN ; "%"; :
   2 H(T(CX,CY)+1
   2 DIFICULTAD=3
   2 DIFICULTAD=2
   2 DIFICULTAD=1
   2 CY+IY,CX+IX ; 
   2 ; "Score: "; PUNTOS ;
   2 ; "Puntos: "; PUNTOS ;
   2 +DIFICULTAD 
   2 ********************************************************************
   2 *(ANCHO))+1
   2 *(ALTO))+1
   2  ; QUEDAN ; " ":
   2  ; MINAS ; " "
   2  ; "  UNA        "; :
   2  ; "  TECLA    "; :
   2  ; "  PULSA    "; :
   2  ; "  PRESS    "; :
   2  ; "  KEY      "; :
   2  ; "  ANY        "; :
   2  ; "                 "; :
   1 zxmines   
   1 the Free Software Foundation; either version 2 of the License, or
   1 must stick to the competition rules (only BASIC).
   1 it under the terms of the GNU General Public License as published by
   1 but WITHOUT ANY WARRANTY; without even the implied warranty of
   1 and my recursive version of the "open empty cells" function.
   1 along with this program; if not, write to the Free Software
   1 ZXMines by Santiago Romero (c) 2003
   1 You should have received a copy of the GNU General Public License
   1 Y+IY,X+IX ; 
   1 Visto o no visto (0/1)
   1 Version 1.03
   1 This program is free software; you can redistribute it and/or modify
   1 This program is distributed in the hope that it will be useful,
   1 They could be rewritten much times faster using ASM, but I
   1 T(CX,CY)=9
   1 T(CX,CY)=0
   1 Si no, generamos otro numeros y dec el indice
   1 QUEDAN=QUEDAN-PD+1
   1 QUEDAN=QUEDAN-1
   1 QUEDAN=ANCHO*ALTO
   1 Puntero a la pila
   1 Puntero a casillas destapadas
   1 Primero ponemos a cero todo el tablero
   1 PUNTOS=PUNTOS+PD-2
   1 PUNTOS=PUNTOS+1
   1 PUNTOS = 0
   1 PORCEN=PORCEN+INCR :
   1 PORCEN=PORCEN+INCR
   1 PAP; "                    ";
   1 PAP; "                        ";
   1 PAP ; "                ";
   1 P$=P$+C$(T(X,Y)+1
   1 MINAS=QUEDAN 
   1 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   1 IY+N,IX ; 
   1 IY+CY, IX+CX ; 
   1 IX, IY del tablero
   1 H(T(X,Y)+1
   1 Grafico 2 (esquina) (E)
   1 Grafico 1 (mina) (M)
   1 Grafico 0 (tablero) (I)
   1 Generar tablero
   1 GNU General Public License for more details.
   1 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   1 Dibujar tablero
   1 Dibujar pantalla
   1 Destapar todos los cuadros de alrededor que sean blancos
   1 DEFINIMOS LOS GRAFICOS
   1 Comments at EOF
   1 Campo de minas
   1 CY+IY,CX+IX; 
   1 CX=ANCHO/2
   1 COL; "Minesweeper";
   1 COL; "Buscaminas";
   1 Bucle principal de partida
   1 Ahora plantamos las minas
   1 Ahora instalamos las minas. Si encontramos un hueco, pasamos a por otra mina
   1 ; "Total: "; 
   1 ; "SPACE";
   1 ; "Q,A=^,v";
   1 ; "O,P=<,>";
   1 ; "Mines: "; 
   1 ; "Minas: "; 
   1 ; "Cells: "; 
   1 ; "--> YOU WIN! <--";
   1 ; "--> GANASTE! <--";
   1 ; "--> GAME OVER <--";
   1 ; "           "
   1 ; "            "
   1 - I also avoided the FLAG stuff... I hate flags in minesweepers... :P
   1 - Feel free to improve the mine placing algorithm 
   1 ,Y) = T(X-1
   1 *** Victoria ***
   1 *** Restaurar grafico bajo el cursor ***
   1 *** Preparar tablero ***
   1 *** Preparar pantalla ***
   1 *** Preparacion de GDUs ***
   1 *** Muerte: mina seleccionada ***
   1 *** Mostrar tablero ***
   1 *** GENERACION DE TABLERO ***
   1 *** Destapar mina ***
   1 *** Definicion de GDUs ***
   1 *** Declaracion de las variables del programa ***
   1 *** Borrar tablero ***
   1 *** Blanquear los cuadros de alrededor de uno dado ***
   1 *** BUCLE PRINCIPAL ***
   1 *** Actualizar contadores minas ***
   1 ) ;C$(T(CX,CY)+1
   1 ) ; C$(T(X,Y)+1
   1 ) ; C$(T(CX,CY)+1
   1 (at your option) any later version.
   1 "Spanish/English? (s/e)", L$ ;
   1 "M"+I, FILA :
   1 "I"+I, FILA :
   1 "E"+I, FILA :
   1 ","1","2","3","4","5","6","7","8","
   1  ; "speccy.org";
   1  ; "NoP/Compiler";
   1  ; "KEYS/Joy:";
   1  ; "Generating board..."; 
   1  ; "Generando tablero.."; 
   1  ; "Calculando...";
   1  ; "> Preparing board: 0%";
   1  ; "> Placing mines: 0%";
   1  ; "> Insert. minas: 0%";
   1  ; "> Gener.  tablero: 0%";
   1  ; "4. Fin juego"; 
   1  ; "4. End game"; 
   1  ; "100%";
   1  ; "...Working...";
   1  ; "(c) 2003";
   1  ; "             ";
   1  ; "                 ";
   1  ; "                  ";